/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.04 Apr 87 / basic postscript / Copy of Downloader / Copy of Downloader.rsrc / POST_320

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 00 76 6d 73 74 61 74 | 75 73 20 2f 76 6d 6d 61 |..vmstat|us /vmma|
|00000010| 78 20 65 78 63 68 20 64 | 65 66 20 2f 76 6d 75 73 |x exch d|ef /vmus|
|00000020| 65 64 20 65 78 63 68 20 | 64 65 66 20 70 6f 70 0a |ed exch |def pop.|
|00000030| 2f 69 6e 63 68 7b 37 32 | 20 6d 75 6c 7d 64 65 66 |/inch{72| mul}def|
|00000040| 20 2f 73 74 72 20 31 32 | 38 20 73 74 72 69 6e 67 | /str 12|8 string|
|00000050| 20 64 65 66 0a 2f 24 73 | 6f 72 74 20 32 30 20 64 | def./$s|ort 20 d|
|00000060| 69 63 74 20 64 65 66 0a | 2f 53 6f 72 74 49 6e 69 |ict def.|/SortIni|
|00000070| 74 20 7b 31 20 61 72 72 | 61 79 7d 20 64 65 66 0a |t {1 arr|ay} def.|
|00000080| 2f 63 6f 6d 70 61 72 65 | 20 7b 67 74 7d 20 64 65 |/compare| {gt} de|
|00000090| 66 0a 2f 49 6e 73 65 72 | 74 20 7b 0a 20 20 65 78 |f./Inser|t {.  ex|
|000000a0| 63 68 20 64 75 70 20 30 | 20 67 65 74 20 74 79 70 |ch dup 0| get typ|
|000000b0| 65 20 28 6e 75 6c 6c 74 | 79 70 65 29 20 65 71 0a |e (nullt|ype) eq.|
|000000c0| 20 20 7b 65 78 63 68 20 | 5b 20 65 78 63 68 20 31 |  {exch |[ exch 1|
|000000d0| 20 61 72 72 61 79 20 31 | 20 61 72 72 61 79 20 5d | array 1| array ]|
|000000e0| 20 30 20 65 78 63 68 20 | 70 75 74 7d 0a 20 20 7b | 0 exch |put}.  {|
|000000f0| 61 6c 6f 61 64 20 70 6f | 70 20 61 6c 6f 61 64 20 |aload po|p aload |
|00000100| 70 6f 70 20 34 20 32 20 | 72 6f 6c 6c 20 32 20 63 |pop 4 2 |roll 2 c|
|00000110| 6f 70 79 20 63 6f 6d 70 | 61 72 65 0a 20 20 20 20 |opy comp|are.    |
|00000120| 7b 70 6f 70 20 33 20 2d | 31 20 72 6f 6c 6c 20 70 |{pop 3 -|1 roll p|
|00000130| 6f 70 20 49 6e 73 65 72 | 74 7d 0a 20 20 20 20 7b |op Inser|t}.    {|
|00000140| 70 6f 70 20 65 78 63 68 | 20 70 6f 70 20 49 6e 73 |pop exch| pop Ins|
|00000150| 65 72 74 7d 20 69 66 65 | 6c 73 65 0a 20 20 7d 20 |ert} ife|lse.  } |
|00000160| 69 66 65 6c 73 65 0a 7d | 64 65 66 0a             |ifelse.}|def.    |
+--------+-------------------------+-------------------------+--------+--------+